﻿Imports DevComponents.DotNetBar

Public Class ucCapnhathanghoa

    Private Sub ButtonItemThoat_Click(sender As Object, e As EventArgs) Handles ButtonItemThoat.Click
        Dim uc As New ucCapnhathanghoa
        Me.Controls.Add(uc)
        Dim parent = DirectCast(Application.OpenForms.Item(0), Main)
        parent.CloseModalPanel(uc, DevComponents.DotNetBar.Controls.eSlideSide.Right)
    End Sub

    Private Sub ButtonItemSave_Click(sender As Object, e As EventArgs) Handles ButtonItemSave.Click
        If ValidateData() Then
            MessageBoxEx.Show("true", "test", MessageBoxButtons.OK)
        Else
            MessageBoxEx.Show("false", "test", MessageBoxButtons.OK)
        End If
    End Sub

    Private Function ValidateData() As Boolean
        Dim val As Boolean = True

        If TextBoxXTenhang.Text = "" Then
            ErrorProvider1.SetError(TextBoxXTenhang, "Vui lòng nhập Tên hàng")
            val = False
        Else
            ErrorProvider1.SetError(TextBoxXTenhang, "")
        End If

        If TextBoxXMahang.Text = "" Then
            ErrorProvider1.SetError(TextBoxXMahang, "Vui lòng nhập Mã hàng")
            val = False
        Else
            ErrorProvider1.SetError(TextBoxXMahang, "")
        End If

        If ComboTreeThuocloai.SelectedNode Is Nothing Then
            ErrorProvider1.SetError(ComboTreeThuocloai, "Vui lòng chọn loại hàng")
            val = False
        Else
            ErrorProvider1.SetError(ComboTreeThuocloai, "")
        End If

        If ComboTreeNhaCCChinh.SelectedNode Is Nothing Then
            ErrorProvider1.SetError(ComboTreeNhaCCChinh, "Vui lòng chọn nhà cung cấp")
            val = False
        Else
            ErrorProvider1.SetError(ComboTreeNhaCCChinh, "")
        End If

        If ComboBoxExDonvitinh.SelectedItem Is Nothing Then
            ErrorProvider1.SetError(ComboBoxExDonvitinh, "Vui lòng chọn đơn vị tính")
            val = False
        Else
            ErrorProvider1.SetError(ComboBoxExDonvitinh, "")
        End If

        Return val
    End Function
End Class
